
fprintf(['\n ------------------------ \n BEGIN OF PROGRAMME: ' datestr(clock) '\n ------------------------ \n']);

rand('state',12346);
randn('state',12364);

myPool=gcp('nocreate');
if (isempty(myPool) && (set_parallel==1)),
    myPool=parpool(32);
end;

    %
